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MODULE LIBSDO_COMMAND ( ! Perform a command 


IDENT = '1-008' ! File: LIBDOCOM.B32 Edit: S8L1008 
) «= 


Ooo 


BEGIN 


Vee eA eReRAAAAAAAAAAEAAAAAAATATERAAR HATER HAAR AKAAAAAAAAEReRARKeAeeeAeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'@ ey Meee ee Kbovt ¢ THE Poe OF tie att tt ae AND WITH THE 


C TW ANY 0 
8 VIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
* 
® 
: R * 
'@ TRANSFERRED. a 
® 
7 
® 
om 
® 
® 
2 
® 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: onepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ie 
WITTITITITILILI TILL LLL LLL LL LLL LLL LLL LLL LLL LLL 
' 
++ 

FACILITY: General Library 
ABSTRACT: 


This module causes the curren” program to end and a command 
to be executed. 
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Be Se Se Se Oe Se Be Se Se Ge Be Fe Ge Fe Ge Se Ge Se Ge Ge Fe Fe Fe Se FF Se Se Oe Se Ge Ss Ge Ge Se Ss Ge Ss Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Seas teases 


I 
i 
i 
i 
4 
i 
i] 
? Z ENVIRONMENT: VAX=-11 User Mode 
§ 2 : AUTHOR: John Sauter, CREATION DATE: 13-NOV-1979 
4 ! MODIFIED BY: 
¢ an 
46 04 ! 1-001 = Original. JBS 26-NOV-1979 
47 04 ! I= § - Correct entry point name. JBS 27-NOV-1979 
48 0048 ! 1- - change STR$ codes to LIB$ codes. JBS Lt Rr be 
49 0049 ! 1-004 - Restrict command string to 1 bytes, since that's all that 
50 50 ! DCL can handle. SBL 2/-Jan-198 
51 51 ! 1-005 - Remove use of process common, unnecessary. Sel, 27-Jan-1981 
2g O26 ' 1-006 - Enhance to recgen ze additional classes of str ng descriptors 
5 5 : y invoking LIBSANALYZE_SDESC_R3 fo extract length an 
54 54 ! address of ist data byt of descriptor. RKR 27-MAY-1981. 
55 55 ' 1-007 = Redirect jsb's from LIB ANAL Yee SD R3 to 
28 2$ ' LIBSANAL Y E_SDESC_R2. RKR 18-NOV- 
5 5 ! 1-008 - Use CLISC_SRVDESC: Report LIBS_NOCLI and LIBS_UNECLIERR when 
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: 


} necessary. 
}: 
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! <BLF /PAGE> 


SBL 18-Dec-1981 


it 


Sep-1 
=Sen-1 


Be 18:58:46 


AX=1 
LIBR 


1 Bliss-32 v4.0-74 
Tu e$ReIL1800CO. 039; 1 
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18$D0_ COMMAND 16-Sep-1984 00:49:4 AX-11 Bliss-32 v4.07 - | 
ett 197808-1382 99:3332 ATBRTL  SRETLTBDOCON. 03951 age 53 


; 6 6 7 

>; 664 1 ! SWITCHES: 

: 69 rt: 1! 

; ¢ , 5 

: 6 68 1 SWITCHES ADDRESSING _MODE 

: o8 be ! (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

3 0 869 1! 

Be 070 1 ! LINKAGES: 

a 0071 1! 

; t? Oo7s } REQUIRE 'RTLIN:STRLNK'; ! Linkage for LIBSANALYZE_SDESC_R2 

: 75 6 4 1 ! TABLE OF CONTENTS: 

; 0259 1! 

a ar 0260 1 

; 2 0261 1 FORWARD ROUTINE 

3 9 8 6 } LIBSDO_COMMAND; ! End this program and do a command 
0264 1! 

F S¢ 0265 1 ! INCLUDE FILES: 

eos 0266 1! 

; «684 0267 1 

: a3 of ! REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining PSECTs 

3 44 Bere : LIBRARY "RTLSTARLE'; ! System symbols 

; ww 0366 1 REQUIRE ‘RTLML:CLIMSG'; ! CLIS_ messages 

; 0646 1 

; | (91 0647 1! 

3 35 0648 1 ! MACROS: 

. = 0649 1! 

: (94 0650 1! NONE 

; 0651 1! 

s % bees 1 ! EQUATED SYMBOLS: 

i or 0655 1! 

; 86498 0654 1! NONE 

; .99 0655 1! 

: 100 0656 1 ! PSECTS: 

: 101 544 1! 

; 196 658 1 DECLARE_PSECTS (LIB); ! Declare psects for LIBS facility 

; 0659 1! 

: 104 0660 1 ! OWN STORAGE: 

on se 

3 199 bees 1! 

3; 108 0664 1 ! EXTERNAL REFERENCES: 

3; 109 665 1! 

; 110 006 1 

2 a5 667 1 EXTERNAL ROUTINE 

: 11 8 1 LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, ! Extract Length 
.- 37 8669 1 ! and address of 
3 (114 0670 1 ' Ist data byte 
s 115 ‘she ! from descrip. 
; 116 or¢ ' SYSSCLI; ' Call the command Language interpreter 
3 118 74 «1 

eb 675 1 !+ 


| 18590. COMMAND 


120 


1 
1 
1 
124 
1 
1 
1 
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} The following are the error codes used in this module. 


ITERAL 
IBS_INVARG, ! Invalid argument 
LIBS$_NOCLI ! No CLI to perform function 
LIBS-UNECLIERR; ! Unexpected CLI error 


HM 16 
18$D0_COMMAND -Sep-1984 00:49:4 AX-11 Bliss-32 v4.0-74 ° 
4260 green 8Re 99:93:08 | HetanT OSReS tepbcon.o$3s1 oor 35 


1 
1 
GLOBAL ROUTINE LIBSDO_COMMAND ( ! 
CMD_TEXT ! Text of command to execute 


Do a command 


* FUNCTIONAL DESCRIPTION: 
Stop running this program and do a command. 
CALLING SEQUENCE: 
status.wlc.v = LIBSDO_COMMAND (CMD_TEXT.rt.dx) 
FORMAL PARAMETERS: 


CMD_TEXT.rt.dx The text_of the command to be executed. 
max of 132 bytes. 


' 

i 

' 

' 

' 

{ IMPLICIT INPUTS: 
NONE 

{ IMPLICIT OUTPUTS: 
; NONE 

' COMPLETION CODES: 
i 
a 


LIBS_INVARG if string is longer than 132 bytes 
or error in CMD_TEXT descriptor. 


SIDE EFFECTS: 
Does not normally return to its caller. 


WN “OO VONOULSWN "OC ODNAOUSWN “OC OONOUSWN—O” 


ointer to descriptor 
n req block 
Length of the command 
Line provided. 
peerese of ist data 

p 


66 - 
8 BEGIN 
9 
0 P 
1 CMD_TEXT : REF BLOCK (8, BYTE); 
§ LOCAL 
4 RET_STATUS: BLOCK (4, BYTE], ! Status returned 
5 CLI_-REQ BLOCK : BLOCK CCLISK_SRVDESC, BYTEJ, ! CLI service block 
§ DEST_ADBR : REF BLOCK (8, BYTEI, } 
8 
4 


CMD_TEXT_LEN, 


CMD_TEXT_ADDR; 
yte in command Line 


1 
! 
‘ 
4 
' provided. 


SN SSS SSNS SSS SSNS SSSI SPA AAA A AAA OO OOo 


WAA ANIA AIAIAI AID DIPINININONID) 3 9 9 SM QDOOOOOOOCOOCOOO0O000000 00000000000 
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'¢ 
! Get length and address of ist data byte in command Line provided. 


—“ 


ph AAAS RAR AAAS SAAR GATES $$ ODDO PS OOS 09 94 
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1 
1B$00_ COMMAND 1b-se =1984 00:49:4 AX-11 Bliss-32 V4.0-74 
it 1 ~300n 138i 00: 4B 2 PMBRTL SRCILIGDOCOM.B3 37 
! If pb tor invalid, return the status returned by 
! LIBSANALYZE_SDESC_R2. 


| 


IF NOT (RET_STATUS = LIBSANALYZE_SDESC_R2 ( .CMD_TEXT ; 
CMD_TEXT_LEN 
CMD“TEXTADDR ) ) 
THEN PETURN (.RET_STATUS) ; 


'¢ . 
Don't allow too long a string. 


IF (.CMD_TEXT_LEN GTRU 132) THEN RETURN (LIB$_INVARG); 
t+ 
Initialize CLI command request block. 
"  CHSFILL (0 CLISK SRVDESC CLI REQ BLOCK); 
CLI_REQ_BLOCK CCLT$B_ROTYPE) ="CLISK_CLISERV; | Request a 
service 


PREVLSSSRLEREASLE SSE 


' 
' 
CLI_REQ_BLOCK CCLISW_SERVCOD] = CLISK_COMMAND; i Service is 
Ab command 
ne 


DESC_ADDR = CLI_REQ_BLOCK CCLI$Q_RQDESC]; 


'¢ 
Fill in the descriptor 


DESC_ADDR CDSCS$W_LENGTH] = .CMD_TEXT_LEN; 
DESC_ADDR CDSCS$A_POINTER] = .CMB_TEXT_ADDOR; 


RET_STATUS = SYSSCLI (CLI_REQ_BLOCK); 
IF NOT .RET_STATUS 
THE 


IF RET_STATUS CSTS$V_FAC_NOJ EQL CLIS_FACILITY 


BEGIN . 
IF .RET_STATUS EQLU CLI$_INVREQTYP 

RETURN LIB$_NOCLI 

RETURN LIBS_UNECLIERR; 


OD 00 09 09 SI NN NSN NN SNS PAA AA AAA OA NUIT BB PP PEE 
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ELSE 
RETURN .RET_STATUS; 
END; 


'¢ 
Now, to get the command to be executed, we must exit. 


SEXIT (CODE = SS$_NORMAL) ; 


i Its not Likely that we'll get back from a call to SEXIT. but BLISS 
doesn't know that, so it insists that we return a value. 


Cae Te we ee we we ww ww ww www weal o lolol ololololalelalololelalelaleolelelelelolelelolelololealola) 
WN 0 OONO UF WN 9 ODNOA UE WIN (OOD NA UNE WW 0 OD NOA UE WN SO OONOU Ew 


3 sO 00009 CD 0000 
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2s 


tc-- a 


| 
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; Routine Size: 151 bytes, Routine Base: _LIBSCODE + 0000 


: 265 9800 1 
. 46 801 1 END ! end of module LIBSDO_COMMAND 
47 0802 1 


j 1 
1B$D0_ COMMAND 1b-se 1984 00:49:4 AX-11 Bliss-32 V4.0-74 Page 7.) 
§-608 aaa 1 90° 48506 LIBRTL.SRCILIBDOCOM.B32; 1 . (3) | 
3 243 0798 2 RETURN (0); | 
266 0799 END; ! end of LIB$DO_ COMMAND 
| } 
TITLE L 18800 COMMAND | 
"IDENT \1-008% 
-EXTRN LIBSANALYZE SDESC_R2 
~EXTRN SYS$CLI, LIBS_INVARG 
| -EXTRN LIBS NOCLI, LTBS_UNECLIERR | 
| -EXTRN SYSSEXIT | 
i 
.PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
| : O1FC 00000 ENTRY LIBSDO_COMMAND, Save R2.R3.R4.R5,R6,R7.R8 ; 0684 
| 5 ac AE 9 00002 MOVAB =84(SPY, SP Eanes 
5 04 aC D0 00006 MOVL CMD_TEXT, RO + 0744 
000000006 06 16 QOO0A JSB LIBSANALYZE_SDESC_R2 F 
56 7D 9010 MOVa RO, RET_STATUS : 
58 52 DO 0001 MOVL 2, R : 
SA 56 £9 00016 BLBC =RET_STATUS, 3$ : 
00000084 8F 57 D1 90019 CMPL CMD TEXT_LEN, #132 > 0752 
08 1B 000 9 BLEQU 1$ : 
50 000000006 &F v0 900 é MOVL #LIBS_INVARG, RO : 
| 0054 &F 00 6E 00 i 900 A 1$: MOVCS #0, (SP), #0, #84, CLI_REQ_BLOCK : 0757 | 
6E 05 90 00032 MOVB #5, CLI_REQ_BLOCK : 0758 
01 AE 05 B0 0003 MOVW CLI~REQ"B : 0760 
50 08 aE 9E 00039 MOVAB CLI_REQ"BLOCK+8, DESC_ADDR : 0763 
60 5? BO 0003D MOVW  CMDTTEXT_LEN, (BESC_ADDR) : 0768 
04 AO 58 00 00040 MOVL § CMDITEXTZADDR, 4(DESC_ADDR) : 0769 
SE DD 00044 PUSHL SP : 0771 
000000006 00 gr FB 00046 CALLS #1, SYSS$CLI : 
56 0 00 0004D MOVL RO, RET STATUS ; 
24 56 EB 9000 BLBS = RET_STATUS : 0773 
03 56 0c 10 €D 0005 CMPZ7V #16, #12, RET_STATUS, #3 : 0776 
19 12 00058 BNEQ 3$ : 
00038822 8F 56 D1 OO005A CMPL RET_STATUS, #231458 : 0779 
08 12 00061 BNEO $ : 
50 000000006 8F B06 90065 ROVL #LIBS_NOCLI, RO > 0783 
50 000000006 8F DO 00068 2$ MOVL  #LIBS_UNECLIERR, RO : 
04 0076 RET : 0786 
50 56 DO 00073 3$ MOVL §-RET_STATUS, RO : 
04 0076 RET : 
01 0D 00077 4$ PUSHL #1 : 0792. 
| 000000006 00 01 FB 00079 CALLS #1, SYSSEXIT | 
50 D4 00080 CLRL = RO : 0798 
04 00082 RET : 0799 | 
i 
| 


sss: 


"xh eect ee men a i eR a ea a 


; Size: 131 code + 0 data bytes 
: me: : 

; Elapsed Time: 00:41. °5 

: Lexenes/CPU-Rin: 97037 


ry Used: 103 pages 
; —— ation Complete 
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18590. COMMAND 16-Sep-1984 49:4 AX-11 Bliss-32 V4.0-74 Page 8 
1-008 13-3 08-1 3b 90° 48500 LIBRTL.SRC (i04con.B35;1 . (3) | 
: 268 0803 0 ELUDOM | 
| : 
| | 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _LIBSCODE 131 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

DRE as eerie teens ar Gr ee Syabe(§ eooeenee Pages Processing 

: File Total Loaded “Percent Mapped Time 

: _$255$DUA28: CSYSLIBISTARLET.L32;1 9776 16 0 581 00:00.8 

; COMMAND QUALIFIERS 

| 


| 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:LIBDOCOM/OBJ=O0BJ$:LIBDOCOM MSRC$:LIBDOCOM/UPDATE=(ENHS$:LIBDOCOM) 
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